home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
How Would You Survive?
/
How Would You Survive (1995)(Grolier)[Mac-PC].iso
/
mac
/
EGYPTW.DIR
/
01710_Script_Home
< prev
next >
Wrap
Text File
|
1995-09-13
|
7KB
|
306 lines
global gQuest, gBeenClicked, gHouseIsOpen
on EHomeRollovers
set gBeenClicked = 0
if (not(CheckClickedStatus(gQuest))) then
if the mouseCast = the castnum of sprite 10 then
repeat while the mouseCast = the castnum of sprite 10
EgyptCursor
set the locH of sprite 12 to 203
set the locV of sprite 12 to 325
updatestage
if the mousedown then
RemoveTheHouse
end if
end repeat
set the locH of sprite 12 to 900
updatestage
else
if rollover(13) then
ArrowCursor
repeat while rollover(13)
if gHouseIsOpen = 1 then
set the locH of sprite 14 to 363
set the locV of sprite 14 to 246
updatestage
else
set the locH of sprite 15 to 364
set the locV of sprite 15 to 242
updatestage
end if
end repeat
set the locH of sprite 14 to 963
set the locH of sprite 15 to 964
updatestage
else
if rollover(8) then
MoveTheGoat
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
RandomQuestion(gQuest)
end
on ERoom1Rollovers
if rollover(12) then
ArrowCursor
repeat while rollover(12)
set the locH of sprite 13 to 315
set the locV of sprite 13 to 113
updatestage
end repeat
set the locH of sprite 13 to 915
updatestage
else
if rollover(14) then
ArrowCursor
repeat while rollover(14)
set the locH of sprite 15 to 199
set the locV of sprite 15 to 149
updatestage
end repeat
set the locH of sprite 15 to 999
updatestage
else
if rollover(8) then
MoveTheGoat
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end
on ERoom2Rollovers
if rollover(12) then
ArrowCursor
repeat while rollover(12)
set the locH of sprite 13 to 436
set the locV of sprite 13 to 221
updatestage
end repeat
else
if rollover(8) then
MoveTheGoat
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end
on ERoom3Rollovers
if rollover(12) then
ArrowCursor
repeat while rollover(12)
set the locH of sprite 13 to 366
set the locV of sprite 13 to 150
updatestage
end repeat
else
if rollover(14) then
ArrowCursor
repeat while rollover(14)
set the locH of sprite 15 to 447
set the locV of sprite 15 to 225
updatestage
end repeat
else
if rollover(16) then
ArrowCursor
repeat while rollover(16)
set the locH of sprite 17 to 552
set the locV of sprite 17 to 387
updatestage
end repeat
else
if rollover(8) then
MoveTheGoat
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end
on ERoom4Rollovers
if rollover(12) then
ArrowCursor
repeat while rollover(12)
set the locH of sprite 13 to 389
set the locV of sprite 13 to 362
updatestage
end repeat
else
if rollover(14) then
ArrowCursor
repeat while rollover(14)
set the locH of sprite 15 to 529
set the locV of sprite 15 to 131
updatestage
end repeat
else
if rollover(16) then
ArrowCursor
repeat while rollover(16)
set the locH of sprite 17 to 355
set the locV of sprite 17 to 118
updatestage
end repeat
else
if rollover(18) then
ArrowCursor
repeat while rollover(18)
set the locH of sprite 24 to 460
set the locV of sprite 24 to 247
updatestage
end repeat
else
if rollover(25) then
ArrowCursor
repeat while rollover(25)
set the locH of sprite 26 to 457
set the locV of sprite 26 to 314
updatestage
end repeat
else
if rollover(27) then
ArrowCursor
repeat while rollover(27)
set the locH of sprite 28 to 551
set the locV of sprite 28 to 387
updatestage
end repeat
else
if rollover(8) then
MoveTheGoat
else
if rollover(9) then
ArrowCursor
repeat while rollover(9)
set the locH of sprite 23 to 201
set the locV of sprite 23 to 148
updatestage
end repeat
else
if rollover(41) then
HandCursor
else
if rollover(42) then
HandCursor
else
ArrowCursor
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end
on RemoveTheHouse
puppetsound "SE300500.AIF"
updatestage
wait .5
set gHouseIsOpen = 1
puppetsprite 10, true
set the locH of sprite 10 to 900
updatestage
end
on ReplaceTheHouse
set gHouseIsOpen = 0
set the locH of sprite 10 to 458
set the locV of sprite 10 to 321
puppetsprite 10, false
puppetsprite 8, false
updatestage
go "YourHomeX"
end
on ResetYourHome
set the locH of sprite 10 to 458
set the locV of sprite 10 to 321
puppetsprite 8, false
go "YourHomeX"
end
on MoveTheGoat
set beingdragged = 0
HandCursor
repeat while rollover(8) and the mousedown
set the constraint of sprite 8 to 7
set beingdragged = 1
set the locH of sprite 8 = the mouseH
set the locV of sprite 8 = the mouseV
updatestage
end repeat
if beingdragged = 1 then
if sprite 8 intersects 19 then
resetQuestionMark(gQuest)
go "Room1"
abort
else
if sprite 8 intersects 20 then
resetQuestionMark(gQuest)
go "Room2"
abort
else
if sprite 8 intersects 21 then
resetQuestionMark(gQuest)
go "Room3"
abort
else
if sprite 8 intersects 22 then
resetQuestionMark(gQuest)
go "Room4"
abort
else
go "YourHomeX"
end if
end if
end if
end if
end if
end